vb求和，1+x+x^2/2+x^3/3+……+x^n/n

来源：百度知道 编辑：UC知道 时间：2024/06/16 02:19:00
1+x+x^2/2+x^3/3+……+x^n/n
就是1加上x加上2分之x的平方再加上3分之x的3次方一直加到n分之x的n次方。
各位高手给下答案啦~~

m=1
for i=1 to n
m=x^i/i+m
next
print m

可以先写一个函数Calc，n只能为非负整数：
Function Calc(x As Single, n As Integer) As Single
Calc = 1
If n = 0 Then Exit Function
For i = 1 To n
Calc = Calc + (x ^ i) / i
Next i
End Function
然后调用时，若要计算x=5,n=4时的结果，即为calc(5,4)
如Print Calc(5,4)或 text1.text=calc(5,4)等等，以此类推即可

dim Sum as integer = 1
for I = 1 to N
sum=sum+X^i/X
Next